/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / fractals / _martin / martin

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 f4 20 3e 20 | 4d 61 72 74 69 6e 20 31 |..... > |Martin 1|
|00000010| 2e 30 0d 00 14 14 f4 20 | 62 79 20 4d 69 6b 65 20 |.0..... |by Mike |
|00000020| 43 75 72 6e 6f 77 0d 00 | 1e 1d f4 20 41 6c 67 6f |Curnow..|... Algo|
|00000030| 72 69 74 68 6d 20 62 79 | 20 44 72 2e 20 4d 61 72 |rithm by| Dr. Mar|
|00000040| 74 69 6e 0d 00 28 34 ee | 20 85 3a f1 22 50 72 65 |tin..(4.| .:."Pre|
|00000050| 73 73 20 59 20 54 6f 20 | 45 6e 64 22 3a 41 24 3d |ss Y To |End":A$=|
|00000060| be 3a e7 20 41 24 3d 22 | 59 22 20 84 20 41 24 3d |.:. A$="|Y" . A$=|
|00000070| 22 79 22 20 8c 20 e0 0d | 00 32 0f 73 3d 31 35 2a |"y" . ..|.2.s=15*|
|00000080| b5 b2 28 34 35 29 0d 00 | 3c 0f 63 3d 32 30 2a 9b |..(45)..|<.c=20*.|
|00000090| b2 28 34 35 29 0d 00 46 | 08 eb 20 31 35 0d 00 50 |.(45)..F|.. 15..P|
|000000a0| 0e c8 91 20 36 34 30 2c | 35 31 32 0d 00 5a 1c f2 |... 640,|512..Z..|
|000000b0| 63 70 28 22 4d 61 72 74 | 69 6e 27 73 20 4d 61 70 |cp("Mart|in's Map|
|000000c0| 70 69 6e 67 73 22 29 0d | 00 64 05 f1 0d 00 6e 0d |pings").|.d....n.|
|000000d0| f2 63 70 28 22 62 79 22 | 29 0d 00 78 05 f1 0d 00 |.cp("by"|)..x....|
|000000e0| 82 16 f2 63 70 28 22 4d | 69 6b 65 20 43 75 72 6e |...cp("M|ike Curn|
|000000f0| 6f 77 22 29 0d 00 8c 4a | f1 27 27 22 45 6e 74 65 |ow")...J|.''"Ente|
|00000100| 72 20 33 20 6e 75 6d 62 | 65 72 73 3a 20 61 2c 20 |r 3 numb|ers: a, |
|00000110| 62 20 61 6e 64 20 7a 20 | 20 28 73 6d 61 6c 6c 20 |b and z | (small |
|00000120| 76 61 6c 75 65 73 20 73 | 75 63 68 20 61 73 20 31 |values s|uch as 1|
|00000130| 2e 35 20 61 72 65 20 62 | 65 73 74 29 2e 22 0d 00 |.5 are b|est)."..|
|00000140| 96 48 f1 22 4e 75 6d 62 | 65 72 73 20 63 61 6e 20 |.H."Numb|ers can |
|00000150| 62 65 20 70 6f 73 69 74 | 69 76 65 20 6f 72 20 6e |be posit|ive or n|
|00000160| 65 67 61 74 69 76 65 2c | 20 61 6e 64 20 69 6e 63 |egative,| and inc|
|00000170| 6c 75 64 65 20 64 65 63 | 69 6d 61 6c 20 70 6c 61 |lude dec|imal pla|
|00000180| 63 65 73 20 2e 22 0d 00 | a0 32 f1 22 49 6e 63 72 |ces ."..|.2."Incr|
|00000190| 65 61 73 69 6e 67 20 74 | 68 65 20 76 61 6c 75 65 |easing t|he value|
|000001a0| 20 6f 66 20 27 7a 27 20 | 7a 6f 6f 6d 73 20 6f 75 | of 'z' |zooms ou|
|000001b0| 74 77 61 72 64 73 2e 22 | 0d 00 aa 50 f1 22 43 6f |twards."|...P."Co|
|000001c0| 6c 6f 75 72 73 20 61 72 | 65 20 70 6c 6f 74 74 65 |lours ar|e plotte|
|000001d0| 64 20 61 74 20 72 61 6e | 64 6f 6d 2c 20 73 6f 20 |d at ran|dom, so |
|000001e0| 61 20 64 69 66 66 65 72 | 65 6e 74 20 64 69 73 70 |a differ|ent disp|
|000001f0| 6c 61 79 20 77 69 6c 6c | 20 61 6c 77 61 79 73 20 |lay will| always |
|00000200| 72 65 73 75 6c 74 2e 22 | 0d 00 b4 39 f1 27 22 54 |result."|...9.'"T|
|00000210| 68 65 20 64 72 61 77 69 | 6e 67 20 77 69 6c 6c 20 |he drawi|ng will |
|00000220| 63 6f 6e 74 69 6e 75 65 | 20 75 6e 74 69 6c 20 79 |continue| until y|
|00000230| 6f 75 20 70 72 65 73 73 | 20 45 53 43 41 50 45 22 |ou press| ESCAPE"|
|00000240| 27 0d 00 be 18 e8 22 45 | 6e 74 65 72 20 61 2c 62 |'....."E|nter a,b|
|00000250| 2c 7a 3a 22 61 2c 62 2c | 7a 0d 00 c8 05 87 0d 00 |,z:"a,b,|z.......|
|00000260| d2 0d db 3a 78 3d 30 3a | 79 3d 30 0d 00 dc 66 f5 |...:x=0:|y=0...f.|
|00000270| 3a e6 20 b3 28 36 34 29 | 2d 31 20 c8 9c 20 28 b3 |:. .(64)|-1 .. (.|
|00000280| 28 33 29 2d 31 29 3c 3c | 36 3a e3 20 69 3d 31 20 |(3)-1)<<|6:. i=1 |
|00000290| b8 20 35 30 30 3a 78 78 | 3d 79 2d b4 28 78 29 2a |. 500:xx|=y-.(x)*|
|000002a0| b6 28 94 28 62 2a 78 2d | 7a 29 29 3a 79 3d 61 2d |.(.(b*x-|z)):y=a-|
|000002b0| 78 3a 78 3d 78 78 3a c8 | 92 20 78 2a 73 2b 79 2a |x:x=xx:.|. x*s+y*|
|000002c0| 63 2d 34 38 2c 79 2a 73 | 2d 78 2a 63 2d 31 36 3a |c-48,y*s|-x*c-16:|
|000002d0| ed 0d 00 e6 06 fd a3 0d | 00 f0 13 f4 20 43 65 6e |........|.... Cen|
|000002e0| 74 72 65 64 20 50 72 69 | 6e 74 0d 00 fa 0c dd f2 |tred Pri|nt......|
|000002f0| 63 70 28 54 24 29 0d 01 | 04 13 f1 8a 34 30 2d a9 |cp(T$)..|....40-.|
|00000300| 28 54 24 29 2f 32 29 54 | 24 0d 01 0e 05 e1 0d ff |(T$)/2)T|$.......|
+--------+-------------------------+-------------------------+--------+--------+